This forum is closed to new posts and
responses. Individual names altered for privacy purposes. The information contained in this website is provided for informational purposes only and should not be construed as a forum for customer support requests. Any customer support requests should be directed to the official HCL customer support channels below:
~Andy Chuniader 8.Oct.03 04:49 PM a Web browser Applications Development6.0.1 CF1All Platforms
Does anybody manage to create a folder from a template folder ?
I used this code wich creates a view whith "SELECT @All" for selection...
Dim ns As NotesSession
Dim db As NotesDatabase
Dim modele() As String
Dim prive() As String
Dim VpriveTmp As NotesView
Dim VmodeleTmp As NotesView
Dim i As Long
Set ns= New NotesSession
Set db = ns.CurrentDatabase
i=3
Redim modele( 1 To i)
Redim prive( 1 To i)
modele(1)="ModV00Liste"
prive(1)="V00Liste"
modele(2)="ModV00Panier"
prive(2)="V00Panier"
modele(3)="ModV00Cadencier"
prive(3)="V00Cadencier"
For k=1 To i
Set VpriveTmp=db.GetView(Prive(k))
If Not VpriveTmp Is Nothing Then Call Vprivetmp.remove
Set VmodeleTmp = db.GetView(modele(k))
Set VpriveTmp = db.CreateView(Prive(k), , VmodeleTmp , True )